(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     63833,       1864]
NotebookOptionsPosition[     50758,       1565]
NotebookOutlinePosition[     51168,       1583]
CellTagsIndexPosition[     51125,       1580]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"Platforms", ",", " ", 
  RowBox[{"Portfolios", " ", 
   RowBox[{"Policy", ":", 
    RowBox[{
    "How", " ", "Audience", " ", "Costs", " ", "Affect", " ", "Social", " ", 
     "Welfare", " ", "Policy", " ", "in", " ", "Multiparty", " ", 
     "Cabinets"}]}]}]}], "\n", 
 RowBox[{
  RowBox[{"By", " ", "Despina", " ", "Alexiadou"}], ",", 
  RowBox[{
  "University", " ", "of", " ", "Strathclyde", " ", "and", " ", "Danial", " ",
    "Hoepfner"}], ",", 
  RowBox[{
  "University", " ", "of", " ", "Pittsburgh"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Code", " ", "for", " ", "Section", " ", "A", " ", "of", " ", "the", " ", 
   "online", " ", "Appendix"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "bf", ",", " ", "xm", ",", " ", "xf", ",", " ", "x0", ",", " ", "am", ",", 
   "af", ",", " ", "cm", ",", " ", "cf"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"1.", " ", "utility", " ", "functions", " ", "of", " ", "the", " ", 
  "minister"}]}], "Input",
 CellChangeTimes->{{3.7145905609393597`*^9, 3.714590562200511*^9}, {
  3.714590989896792*^9, 3.714591012096004*^9}, {3.7145932830804653`*^9, 
  3.714593299466035*^9}, {3.714593371712399*^9, 3.714593416919086*^9}, {
  3.714733156577692*^9, 3.714733167545635*^9}},
 EmphasizeSyntaxErrors->
  True,ExpressionUUID->"af95bb2e-34f5-4da6-9cd6-149f99ab41f3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"q1", "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"bf", "-", "xm"}], ")"}], "^", "2"}]}], " ", "-", 
   RowBox[{"am", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"bf", "-", "xm"}], ")"}], "^", "2"}]}]}]}]], "Input",ExpressionU\
UID->"ab77659e-6fbe-4ec5-b845-3d7cc14b6eab"],

Cell[BoxData[
 RowBox[{"-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "bf"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.7145905714643583`*^9, 
  3.71459100255155*^9},ExpressionUUID->"c7c7b365-d6b8-46c7-be51-b4d0ffaf9c81"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"q2", "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x0", "-", "xm"}], ")"}], "^", "2"}]}], "-", "cm"}]}]], "Input",\
ExpressionUUID->"f0b5b2a5-28f6-49ff-b0e4-cf35980919d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "cm"}], "-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"x0", "-", "xm"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.714590582967504*^9},ExpressionUUID->"4496f51d-238a-4d94-9a81-\
3540813f12a2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"2.", " ", "finding", " ", "the", " ", "acceptable", " ", "policy", 
  " ", "proposal", " ", "by", " ", "finance", " ", "minister"}]], "Input",
 CellChangeTimes->{{3.714591017195221*^9, 
  3.714591049916041*^9}},ExpressionUUID->"133a2eba-af61-4e70-a89c-\
343ffb799e14"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"q1", ">", "q2"}], ",", " ", "bf"}], "]"}]], "Input",ExpressionUUID\
->"ce4f7fa0-dd61-41a6-bd19-0535ff8d626d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x0", "|", "xm", "|", "bf"}], ")"}], "\[Element]", "Reals"}], "&&", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"am", "<", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cm", "<", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["x0", "2"]}], "+", 
            RowBox[{"2", " ", "x0", " ", "xm"}], "-", 
            SuperscriptBox["xm", "2"]}]}], "&&", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"bf", "<", 
             RowBox[{"xm", "-", 
              SqrtBox[
               FractionBox[
                RowBox[{"cm", "+", 
                 SuperscriptBox["x0", "2"], "-", 
                 RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
                 SuperscriptBox["xm", "2"]}], 
                RowBox[{"1", "+", "am"}]]]}]}], "||", 
            RowBox[{"bf", ">", 
             RowBox[{"xm", "+", 
              SqrtBox[
               FractionBox[
                RowBox[{"cm", "+", 
                 SuperscriptBox["x0", "2"], "-", 
                 RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
                 SuperscriptBox["xm", "2"]}], 
                RowBox[{"1", "+", "am"}]]]}]}]}], ")"}]}], ")"}], "||", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cm", "\[Equal]", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["x0", "2"]}], "+", 
            RowBox[{"2", " ", "x0", " ", "xm"}], "-", 
            SuperscriptBox["xm", "2"]}]}], "&&", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"bf", "<", 
             RowBox[{"xm", "+", 
              SqrtBox[
               FractionBox[
                RowBox[{"cm", "+", 
                 SuperscriptBox["x0", "2"], "-", 
                 RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
                 SuperscriptBox["xm", "2"]}], 
                RowBox[{"1", "+", "am"}]]]}]}], "||", 
            RowBox[{"bf", ">", 
             RowBox[{"xm", "+", 
              SqrtBox[
               FractionBox[
                RowBox[{"cm", "+", 
                 SuperscriptBox["x0", "2"], "-", 
                 RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
                 SuperscriptBox["xm", "2"]}], 
                RowBox[{"1", "+", "am"}]]]}]}]}], ")"}]}], ")"}], "||", 
        RowBox[{"cm", ">", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["x0", "2"]}], "+", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "-", 
          SuperscriptBox["xm", "2"]}]}]}], ")"}]}], ")"}], "||", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"am", "\[Equal]", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{"cm", ">", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["x0", "2"]}], "+", 
        RowBox[{"2", " ", "x0", " ", "xm"}], "-", 
        SuperscriptBox["xm", "2"]}]}]}], ")"}], "||", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"am", ">", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{"cm", ">", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["x0", "2"]}], "+", 
        RowBox[{"2", " ", "x0", " ", "xm"}], "-", 
        SuperscriptBox["xm", "2"]}]}], "&&", 
      RowBox[{
       RowBox[{"xm", "-", 
        SqrtBox[
         FractionBox[
          RowBox[{"cm", "+", 
           SuperscriptBox["x0", "2"], "-", 
           RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
           SuperscriptBox["xm", "2"]}], 
          RowBox[{"1", "+", "am"}]]]}], "<", "bf", "<", 
       RowBox[{"xm", "+", 
        SqrtBox[
         FractionBox[
          RowBox[{"cm", "+", 
           SuperscriptBox["x0", "2"], "-", 
           RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
           SuperscriptBox["xm", "2"]}], 
          RowBox[{"1", "+", "am"}]]]}]}]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7145905938282013`*^9},ExpressionUUID->"a4298f7a-b0dc-4773-a467-\
6b89fec4a475"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"bfs", "=", 
  RowBox[{"xm", "-", 
   SqrtBox[
    FractionBox[
     RowBox[{"cm", "+", 
      SuperscriptBox["x0", "2"], "-", 
      RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
      SuperscriptBox["xm", "2"]}], 
     RowBox[{"1", "+", "am"}]]]}]}]], "Input",ExpressionUUID->"cc4f10e2-8637-\
4178-a1cf-539a316a52f0"],

Cell[BoxData[
 RowBox[{"xm", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"cm", "+", 
     SuperscriptBox["x0", "2"], "-", 
     RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
     SuperscriptBox["xm", "2"]}], 
    RowBox[{"1", "+", "am"}]]]}]], "Output",
 CellChangeTimes->{
  3.714590621014123*^9},ExpressionUUID->"dd928ffe-b34b-4607-a29a-\
253f04fc7562"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"3.", " ", "Showing", " ", "that", " ", "the", " ", "acceptable", 
  " ", "region", " ", "is", " ", "a", " ", "function", " ", "of", " ", 
  RowBox[{"a", "."}]}]], "Input",
 CellChangeTimes->{{3.714591097323785*^9, 3.7145911338097677`*^9}, {
  3.71459225538416*^9, 
  3.714592280660468*^9}},ExpressionUUID->"25db15d5-6d5e-44b5-be30-\
63e9286a0030"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "am_", "]"}], "=", 
  RowBox[{"xm", "-", 
   SqrtBox[
    FractionBox[
     RowBox[{"cm", "+", 
      SuperscriptBox["x0", "2"], "-", 
      RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
      SuperscriptBox["xm", "2"]}], 
     RowBox[{"1", "+", "am"}]]]}]}]], "Input",ExpressionUUID->"e6ce3175-ae67-\
4e9b-b978-22018f259ceb"],

Cell[BoxData[
 RowBox[{"xm", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"cm", "+", 
     SuperscriptBox["x0", "2"], "-", 
     RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
     SuperscriptBox["xm", "2"]}], 
    RowBox[{"1", "+", "am"}]]]}]], "Output",
 CellChangeTimes->{
  3.7145906293793507`*^9},ExpressionUUID->"00a67645-0f27-4bc5-b13a-\
77fea7316c21"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "'"}], "[", "am", "]"}]], "Input",ExpressionUUID->"2c513dba-3660-41a0-bada-7d00acb578fb"],

Cell[BoxData[
 FractionBox[
  RowBox[{"cm", "+", 
   SuperscriptBox["x0", "2"], "-", 
   RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
   SuperscriptBox["xm", "2"]}], 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "am"}], ")"}], "2"], " ", 
   SqrtBox[
    FractionBox[
     RowBox[{"cm", "+", 
      SuperscriptBox["x0", "2"], "-", 
      RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
      SuperscriptBox["xm", "2"]}], 
     RowBox[{"1", "+", "am"}]]]}]]], "Output",
 CellChangeTimes->{
  3.7145906553737993`*^9},ExpressionUUID->"0365a2dd-104f-400f-b101-\
32b3ea5872fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  FractionBox[
   RowBox[{"cm", "+", 
    SuperscriptBox["x0", "2"], "-", 
    RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
    SuperscriptBox["xm", "2"]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "am"}], ")"}], "2"], " ", 
    SqrtBox[
     FractionBox[
      RowBox[{"cm", "+", 
       SuperscriptBox["x0", "2"], "-", 
       RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
       SuperscriptBox["xm", "2"]}], 
      RowBox[{"1", "+", "am"}]]]}]], "]"}]], "Input",ExpressionUUID->\
"605f8311-dcc8-49a4-a85d-c298d7ab62f7"],

Cell[BoxData[
 FractionBox[
  SqrtBox[
   FractionBox[
    RowBox[{"cm", "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"x0", "-", "xm"}], ")"}], "2"]}], 
    RowBox[{"1", "+", "am"}]]], 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "am"}], ")"}]}]]], "Output",
 CellChangeTimes->{
  3.714590668072049*^9},ExpressionUUID->"720a163c-a79c-456e-93a6-\
632d9c6fa914"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"4.", " ", 
  RowBox[{"Finance", "'"}], "s", " ", "utility", " ", "function"}]], "Input",
 CellChangeTimes->{{3.714591141662532*^9, 
  3.714591153597537*^9}},ExpressionUUID->"e8b5ae4a-1145-4e7d-9695-\
02f2843dc9b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z1", "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"bf", "-", "xf"}], ")"}], "^", "2"}]}], "-", 
   RowBox[{"af", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"bf", "-", "xf"}], ")"}], "^", "2"}]}]}]}]], "Input",ExpressionU\
UID->"8b187ce3-6376-46d5-98d0-f9c0887a563f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"bf", "-", "xf"}], ")"}], "2"]}], "-", 
  RowBox[{"af", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"bf", "-", "xf"}], ")"}], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.714590691560067*^9},ExpressionUUID->"c64e9b63-4f00-45d5-b3ca-\
5b0113f9c3ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z2", "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x0", "-", "xf"}], ")"}], "^", "2"}]}], "-", 
   RowBox[{"af", 
    RowBox[{"(", 
     RowBox[{"bf", "-", "xf"}], ")"}]}], "-", "cf"}]}]], "Input",ExpressionUUI\
D->"041fc2fa-64ac-4182-a73a-c84f733a2318"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "cf"}], "-", 
  RowBox[{"af", " ", 
   RowBox[{"(", 
    RowBox[{"bf", "-", "xf"}], ")"}]}], "-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"x0", "-", "xf"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.714590703099642*^9},ExpressionUUID->"d04195df-3086-4d1f-b519-\
1d33b625ef8e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"5.", " ", "Graphing", " ", 
  RowBox[{"minister", "'"}], "s", " ", "acceptance", " ", "region", " ", 
  "when", " ", "the", " ", "two", " ", 
  RowBox[{"ministers", "'"}], " ", "policy", " ", "preferences", " ", "are", 
  " ", "symmetric", " ", "around", " ", "0."}]], "Input",
 CellChangeTimes->{{3.7145911814634933`*^9, 3.7145912308966217`*^9}, {
  3.714593440536523*^9, 
  3.714593441882174*^9}},ExpressionUUID->"8de7da8a-e394-49e0-b29a-\
221505c7013b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u12", "=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"bf", "<", 
      RowBox[{"xm", "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}], "||", 
     RowBox[{"bf", ">", 
      RowBox[{"xm", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}]}], ",", " ", "z2", ",", " ", "z1"}], 
   "]"}]}]], "Input",ExpressionUUID->"d0f65d53-fa31-411e-8452-0395a282b7c1"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", "0"}], "||", 
    RowBox[{"bf", ">", "4"}]}], ",", "z2", ",", "z1"}], "]"}]], "Output",
 CellChangeTimes->{3.714590713062377*^9, 
  3.7145935182248783`*^9},ExpressionUUID->"df6643a0-16c1-48f2-a680-\
547397bce73f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"The", " ", "next", " ", "section", " ", "calculates", " ", "the", 
  " ", "possible", " ", "equilirium", " ", "policies", " ", "based", " ", 
  "on", " ", "different", " ", "parameters", " ", "for", " ", 
  RowBox[{"ministers", "'"}], " ", "cost", " ", "of", " ", "office", " ", 
  "and", " ", "strenght", " ", "of", " ", 
  RowBox[{"pledge", ".", " ", "These"}], "  ", "simulations", " ", "are", " ",
   "reported", " ", "in", " ", "the", " ", "eight", " ", "cells", " ", "of", 
  " ", "Table", " ", "1", "A", " ", "of", " ", "the", " ", "online", " ", 
  RowBox[{"Appendix", ".", " ", "Below"}], "  ", "we", " ", "estimate", " ", 
  "the", " ", 
  RowBox[{"minister", "'"}], "s", " ", "region", " ", "of", " ", 
  RowBox[{"acceptance", ".", " ", "The"}], " ", "only", " ", "acceptable", 
  " ", "policy", " ", "to", " ", "finance", " ", "is", " ", "the", " ", 
  "lowest", " ", "acceptable", " ", "value", " ", "for", " ", "the", " ", 
  RowBox[{"minister", "."}]}]], "Input",
 CellChangeTimes->{{3.71818051831816*^9, 3.718180543328825*^9}, {
  3.718180665254344*^9, 
  3.718180863437326*^9}},ExpressionUUID->"9f114708-8dfa-4992-9e34-\
bccef43747db"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "6.", "  ", "When", " ", "cost", " ", "of", " ", "losing", " ", "office", 
   " ", "is", " ", "zero", " ", "for", " ", "both", " ", "ministers"}], ",", 
  " ", 
  RowBox[{"cm", "=", 
   RowBox[{"cf", "=", 
    RowBox[{"0", " ", 
     RowBox[{"(", 
      RowBox[{"Column", " ", "2", " ", "of", " ", "Table", " ", "1", "A"}], 
      ")"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"6.1", "  ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
    "Estimating", " ", "the", " ", "optimal", " ", "policy", " ", 
     "response"}], ",", " ", 
    RowBox[{
    "when", " ", "neither", " ", "minister", " ", "has", " ", "made", " ", 
     "a", " ", "pledge"}], ",", " ", 
    RowBox[{"am", "=", 
     RowBox[{"af", "=", "0"}]}], ",", " ", 
    RowBox[{"as", " ", "reported", " ", "in", " ", "Row", " ", "2"}], ",", 
    " ", 
    RowBox[{"Column", " ", "2", " ", 
     RowBox[{"(", 
      RowBox[{"bf", "=", "0"}], ")"}]}]}], ")"}]}]}], "Input",
 CellChangeTimes->{{3.714591618652521*^9, 3.714591630994007*^9}, {
  3.714733631079776*^9, 3.714733681346545*^9}, {3.714733746716144*^9, 
  3.7147337512280293`*^9}, {3.718179389667714*^9, 3.718179394641637*^9}, {
  3.7181794323949957`*^9, 3.718179509622435*^9}, {3.7181797447535963`*^9, 
  3.718179747991438*^9}, {3.7181797853931723`*^9, 3.718179866347293*^9}, {
  3.718179957551218*^9, 3.718179978471929*^9}, {3.718180554594983*^9, 
  3.718180563008378*^9}},ExpressionUUID->"2a953f1c-2e4f-4231-91c2-\
2b94d4550062"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"xm", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"x0", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"xf", "=", 
  RowBox[{"-", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"cm", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"cf", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"am", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"af", "=", "0"}]}], "Input",
 CellChangeTimes->{{3.71459139200242*^9, 3.71459139240661*^9}, {
  3.714593471259138*^9, 3.7145934722738934`*^9}, {3.714593502800393*^9, 
  3.714593504670843*^9}},ExpressionUUID->"6e4c9c3e-6f75-494e-8905-\
cdf7c6f42d6b"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{
  3.714590733742758*^9, {3.7145913669095287`*^9, 3.714591393228681*^9}, 
   3.714593472912755*^9, {3.714593505329867*^9, 3.7145935155570087`*^9}, 
   3.7147332625339117`*^9, 3.714733642335244*^9, 
   3.7181798343691*^9},ExpressionUUID->"f9c6f887-0324-468c-bf97-8114968e13fe"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.714590733742758*^9, {3.7145913669095287`*^9, 3.714591393228681*^9}, 
   3.714593472912755*^9, {3.714593505329867*^9, 3.7145935155570087`*^9}, 
   3.7147332625339117`*^9, 3.714733642335244*^9, 
   3.718179834375999*^9},ExpressionUUID->"c1c40862-a321-469e-9693-\
d8f05d4e1393"],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{
  3.714590733742758*^9, {3.7145913669095287`*^9, 3.714591393228681*^9}, 
   3.714593472912755*^9, {3.714593505329867*^9, 3.7145935155570087`*^9}, 
   3.7147332625339117`*^9, 3.714733642335244*^9, 
   3.718179834381369*^9},ExpressionUUID->"27efeac5-30b4-4af5-8e6c-\
e75bb600893e"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.714590733742758*^9, {3.7145913669095287`*^9, 3.714591393228681*^9}, 
   3.714593472912755*^9, {3.714593505329867*^9, 3.7145935155570087`*^9}, 
   3.7147332625339117`*^9, 3.714733642335244*^9, 
   3.7181798343872147`*^9},ExpressionUUID->"b16c1f4b-71c9-4ef2-b885-\
e929d8b8a9f9"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.714590733742758*^9, {3.7145913669095287`*^9, 3.714591393228681*^9}, 
   3.714593472912755*^9, {3.714593505329867*^9, 3.7145935155570087`*^9}, 
   3.7147332625339117`*^9, 3.714733642335244*^9, 
   3.718179834392311*^9},ExpressionUUID->"0723365f-130b-4b10-9b8a-\
ba2acfb83168"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.714590733742758*^9, {3.7145913669095287`*^9, 3.714591393228681*^9}, 
   3.714593472912755*^9, {3.714593505329867*^9, 3.7145935155570087`*^9}, 
   3.7147332625339117`*^9, 3.714733642335244*^9, 
   3.718179834397551*^9},ExpressionUUID->"523e447d-b043-484b-93a4-\
1b130dd4cad6"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.714590733742758*^9, {3.7145913669095287`*^9, 3.714591393228681*^9}, 
   3.714593472912755*^9, {3.714593505329867*^9, 3.7145935155570087`*^9}, 
   3.7147332625339117`*^9, 3.714733642335244*^9, 
   3.7181798344024487`*^9},ExpressionUUID->"72fbeed8-4003-4624-aa5d-\
d23e18e18d3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u12", "=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"bf", "<", 
      RowBox[{"xm", "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}], "||", 
     RowBox[{"bf", ">", 
      RowBox[{"xm", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}]}], ",", " ", "z2", ",", " ", "z1"}], 
   "]"}]}]], "Input",ExpressionUUID->"075f9267-f862-4809-83d6-8d1815c4e4f1"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", "0"}], "||", 
    RowBox[{"bf", ">", "4"}]}], ",", "z2", ",", "z1"}], "]"}]], "Output",
 CellChangeTimes->{3.714593542531824*^9, 3.714733268026413*^9, 
  3.714733649403267*^9, 
  3.718179942841811*^9},ExpressionUUID->"c7797afd-aa4f-410d-8192-\
62278b843efd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "6.2", "Estimating", " ", "the", " ", "optimal", " ", "policy", " ", 
    "response"}], ",", " ", "bf", ",", " ", 
   RowBox[{
   "when", " ", "both", " ", "ministers", " ", "have", " ", "made", " ", "a", 
    " ", "pledge"}], ",", " ", 
   RowBox[{"am", "=", 
    RowBox[{"af", "=", "2"}]}], ",", " ", 
   RowBox[{
   "as", " ", "reported", " ", "in", " ", "Row", " ", "3", "Column", " ", "2",
     " ", 
    RowBox[{"(", 
     RowBox[{"bf", "=", 
      RowBox[{"2", "-", 
       FractionBox["2", 
        SqrtBox["3"]]}]}], " ", ")"}]}]}], ")"}]], "Input",
 CellChangeTimes->{{3.718179895560384*^9, 3.7181799381341267`*^9}, {
  3.718180014154502*^9, 
  3.718180050538611*^9}},ExpressionUUID->"3670e089-40ce-4061-b80a-\
477f546c524e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"xm", "=", "2"}], "\[IndentingNewLine]", 
   RowBox[{"x0", "=", "0"}], "\[IndentingNewLine]", 
   RowBox[{"xf", "=", 
    RowBox[{"-", "2"}]}], "\[IndentingNewLine]", 
   RowBox[{"cm", "=", "0"}], "\[IndentingNewLine]", 
   RowBox[{"cf", "=", "0"}], "\[IndentingNewLine]", 
   RowBox[{"am", "=", "2"}], "\[IndentingNewLine]", 
   RowBox[{"af", "=", "2"}]}]}]], "Input",
 CellChangeTimes->{{3.714591677670629*^9, 3.7145917031375217`*^9}, {
   3.714733697166836*^9, 3.714733721125311*^9}, 3.714733800992968*^9, 
   3.718179909374506*^9},ExpressionUUID->"4b2e70fb-de8a-4e13-bb41-\
7cec147c0103"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.714733287556278*^9, 3.714733711888399*^9, 
  3.7147337641623087`*^9, 3.714733804741214*^9, 
  3.7181799961672163`*^9},ExpressionUUID->"7694bd70-23c1-424f-a59f-\
9c9d93b9eefd"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.714733287556278*^9, 3.714733711888399*^9, 
  3.7147337641623087`*^9, 3.714733804741214*^9, 
  3.718179996174633*^9},ExpressionUUID->"e447ad83-1d66-48f6-a120-\
92e92aec3aa6"],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{3.714733287556278*^9, 3.714733711888399*^9, 
  3.7147337641623087`*^9, 3.714733804741214*^9, 
  3.718179996179981*^9},ExpressionUUID->"70a89e85-5e8b-43e3-9730-\
219bef237b4d"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.714733287556278*^9, 3.714733711888399*^9, 
  3.7147337641623087`*^9, 3.714733804741214*^9, 
  3.7181799961851387`*^9},ExpressionUUID->"2bcaa01d-68b8-43dc-8859-\
d0ee31a715ab"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.714733287556278*^9, 3.714733711888399*^9, 
  3.7147337641623087`*^9, 3.714733804741214*^9, 
  3.718179996190576*^9},ExpressionUUID->"5be1775b-1ab5-4f8d-a311-\
31133ef22aa2"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.714733287556278*^9, 3.714733711888399*^9, 
  3.7147337641623087`*^9, 3.714733804741214*^9, 
  3.718179996195572*^9},ExpressionUUID->"181150b3-b1e4-4ac7-8c5f-\
40c33841cf3f"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.714733287556278*^9, 3.714733711888399*^9, 
  3.7147337641623087`*^9, 3.714733804741214*^9, 
  3.718179996200923*^9},ExpressionUUID->"110c70f4-bee4-4c50-ad85-\
acbee1dd08d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u12", "=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"bf", "<", 
      RowBox[{"xm", "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}], "||", 
     RowBox[{"bf", ">", 
      RowBox[{"xm", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}]}], ",", " ", "z2", ",", " ", "z1"}], 
   "]"}]}]], "Input",ExpressionUUID->"3a3e4cbe-d9f8-4a02-8e0f-64c52e02dc9c"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", 
     RowBox[{"2", "-", 
      FractionBox["2", 
       SqrtBox["3"]]}]}], "||", 
    RowBox[{"bf", ">", 
     RowBox[{"2", "+", 
      FractionBox["2", 
       SqrtBox["3"]]}]}]}], ",", "z2", ",", "z1"}], "]"}]], "Output",
 CellChangeTimes->{
  3.7145917156708717`*^9, 3.714593551149551*^9, 3.71473381627857*^9, {
   3.718179993096305*^9, 
   3.7181799996600847`*^9}},ExpressionUUID->"175152dc-99cf-42fb-b274-\
39b52477d78f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "6.3", "Estimating", " ", "the", " ", "optimal", " ", "policy", " ", 
    "response"}], ",", " ", "bf", ",", " ", 
   RowBox[{
   "when", " ", "only", " ", "Minister", " ", "has", " ", "made", " ", "a", 
    " ", "pledge"}], ",", " ", 
   RowBox[{"am", "=", "2"}], ",", " ", 
   RowBox[{"af", "=", "0"}], ",", " ", 
   RowBox[{
   "as", " ", "reported", " ", "in", " ", "Row", " ", "4", "Column", " ", "2",
     " ", 
    RowBox[{"(", 
     RowBox[{"bf", "=", 
      RowBox[{"2", "-", 
       FractionBox["2", 
        SqrtBox["3"]]}]}], " ", ")"}]}]}], ")"}]], "Input",
 CellChangeTimes->{{3.71818010253471*^9, 
  3.718180138774417*^9}},ExpressionUUID->"654b8a86-2eab-4d4f-ab9e-\
36c2f19d2ba1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"xm", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"x0", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"xf", "=", 
  RowBox[{"-", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"cm", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"cf", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"am", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"af", "=", "0"}]}], "Input",
 CellChangeTimes->{{3.714591749871416*^9, 
  3.714591750215291*^9}},ExpressionUUID->"123de86d-ca94-4e5a-814e-\
e170f701ce0f"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.7145917514233627`*^9, 3.714733930254241*^9, 
  3.718180143976668*^9},ExpressionUUID->"30c12290-b31d-4630-ad5a-\
1f34ff085878"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7145917514233627`*^9, 3.714733930254241*^9, 
  3.718180143983581*^9},ExpressionUUID->"2a7ac956-6b21-4c9f-b179-\
6d50a0c3f61a"],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{3.7145917514233627`*^9, 3.714733930254241*^9, 
  3.7181801439892387`*^9},ExpressionUUID->"6d13e6a4-9cbd-4493-8426-\
7b4091ece232"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7145917514233627`*^9, 3.714733930254241*^9, 
  3.718180143994555*^9},ExpressionUUID->"2fc2cea6-fc93-4a22-81dc-\
14a57b9fb78e"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7145917514233627`*^9, 3.714733930254241*^9, 
  3.7181801439998283`*^9},ExpressionUUID->"d1a649ab-ac51-44f8-9c10-\
60922dc9a959"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.7145917514233627`*^9, 3.714733930254241*^9, 
  3.718180144004819*^9},ExpressionUUID->"4b7d6be7-06e8-4198-b90e-\
dd327206364f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7145917514233627`*^9, 3.714733930254241*^9, 
  3.718180144010004*^9},ExpressionUUID->"47c6fa6a-aef4-49ac-b97c-\
e409b22edd18"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u12", "=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"bf", "<", 
      RowBox[{"xm", "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}], "||", 
     RowBox[{"bf", ">", 
      RowBox[{"xm", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}]}], ",", " ", "z2", ",", " ", "z1"}], 
   "]"}]}]], "Input",ExpressionUUID->"430d93b8-a13f-4036-a6d2-f4d8e41beb00"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", 
     RowBox[{"2", "-", 
      FractionBox["2", 
       SqrtBox["3"]]}]}], "||", 
    RowBox[{"bf", ">", 
     RowBox[{"2", "+", 
      FractionBox["2", 
       SqrtBox["3"]]}]}]}], ",", "z2", ",", "z1"}], "]"}]], "Output",
 CellChangeTimes->{3.7145917602344646`*^9, 3.714733936270384*^9, 
  3.718180147121069*^9},ExpressionUUID->"dd3e3f28-3640-43e6-bd30-\
16f683dbd39e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "6.4", "Estimating", " ", "the", " ", "optimal", " ", "policy", " ", 
    "response"}], ",", " ", "bf", ",", " ", 
   RowBox[{
   "when", " ", "only", " ", "Finance", " ", "has", " ", "made", " ", "a", 
    " ", "pledge"}], ",", " ", 
   RowBox[{"am", "=", "0"}], ",", " ", 
   RowBox[{"af", "=", "2"}], ",", " ", 
   RowBox[{
   "as", " ", "reported", " ", "in", " ", "Row", " ", "5", "Column", " ", "2",
     " ", 
    RowBox[{"(", 
     RowBox[{"bf", "=", "0"}], ")"}]}]}], ")"}]], "Input",
 CellChangeTimes->{{3.718180168337307*^9, 
  3.718180212609089*^9}},ExpressionUUID->"ff02b507-9490-46cb-b7d3-\
d90791758db2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"xm", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"x0", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"xf", "=", 
  RowBox[{"-", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"cm", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"cf", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"am", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"af", "=", "2"}]}], "Input",
 CellChangeTimes->{{3.714591779702846*^9, 
  3.714591783655698*^9}},ExpressionUUID->"ff798f11-2cc4-47b3-8c7f-\
c08f4cbc2af8"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.714591784884449*^9, 3.714591807618753*^9}, 
   3.714733952796678*^9, 
   3.718180218659377*^9},ExpressionUUID->"39b77f00-dfd5-4ef3-9e88-\
2935565610b9"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.714591784884449*^9, 3.714591807618753*^9}, 
   3.714733952796678*^9, 
   3.718180218666473*^9},ExpressionUUID->"35370e47-530d-4cdd-afae-\
f4b20cf8a9db"],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{{3.714591784884449*^9, 3.714591807618753*^9}, 
   3.714733952796678*^9, 
   3.718180218671521*^9},ExpressionUUID->"818e47f3-3f0f-406b-89dd-\
77480382c4b6"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.714591784884449*^9, 3.714591807618753*^9}, 
   3.714733952796678*^9, 
   3.718180218677176*^9},ExpressionUUID->"e0a6627e-7c6b-4111-8395-\
56a40505b0cf"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.714591784884449*^9, 3.714591807618753*^9}, 
   3.714733952796678*^9, 
   3.718180218683433*^9},ExpressionUUID->"e1f80184-a681-4da2-ae07-\
1324b4fae855"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.714591784884449*^9, 3.714591807618753*^9}, 
   3.714733952796678*^9, 
   3.71818021868876*^9},ExpressionUUID->"847ba7fe-40fa-4876-b524-\
3264791714ef"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.714591784884449*^9, 3.714591807618753*^9}, 
   3.714733952796678*^9, 
   3.718180218694014*^9},ExpressionUUID->"f8a4a69a-eab1-4a8d-98a1-\
2470361ce033"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"u12", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"bf", "<", 
       RowBox[{"xm", "-", 
        SqrtBox[
         FractionBox[
          RowBox[{"cm", "+", 
           SuperscriptBox["x0", "2"], "-", 
           RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
           SuperscriptBox["xm", "2"]}], 
          RowBox[{"1", "+", "am"}]]]}]}], "||", 
      RowBox[{"bf", ">", 
       RowBox[{"xm", "+", 
        SqrtBox[
         FractionBox[
          RowBox[{"cm", "+", 
           SuperscriptBox["x0", "2"], "-", 
           RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
           SuperscriptBox["xm", "2"]}], 
          RowBox[{"1", "+", "am"}]]]}]}]}], ",", " ", "z2", ",", " ", "z1"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.714591793767646*^9, 
  3.714591804252548*^9}},ExpressionUUID->"98d81cdd-80eb-49d6-b2f6-\
dadbcc5ea4be"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", "0"}], "||", 
    RowBox[{"bf", ">", "4"}]}], ",", "z2", ",", "z1"}], "]"}]], "Output",
 CellChangeTimes->{3.714733957699317*^9, 
  3.7181802212592688`*^9},ExpressionUUID->"751c8ebc-8dca-4cfc-9903-\
a4443afcd2e3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", "0"}], "||", 
    RowBox[{"bf", ">", "4"}]}], ",", "z2", ",", "z1"}], "]"}]], "Input",
 CellChangeTimes->{
  3.714591825913961*^9},ExpressionUUID->"269bc247-f3f9-4137-9be0-\
0a532991f086"],

Cell[BoxData[
 RowBox[{"7.", " ", "Numeric", " ", 
  RowBox[{"Simulations", ":", " ", 
   RowBox[{
   "When", " ", "cost", " ", "of", " ", "losing", " ", "office", " ", "is", 
    " ", "high", "  ", 
    RowBox[{"(", 
     RowBox[{"cm", "=", 
      RowBox[{"cf", "=", 
       RowBox[{"1", " ", 
        RowBox[{"(", 
         RowBox[{"Column", " ", "3", " ", "of", " ", "Table", " ", "1", "A"}],
          ")"}]}]}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714733990515255*^9, 3.714734001966304*^9}, {
  3.718180266469717*^9, 
  3.718180284148591*^9}},ExpressionUUID->"2d7914ba-b622-47dc-afbe-\
9019fd8fae20"],

Cell[BoxData[
 RowBox[{"7.1", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
    "Estimating", " ", "the", " ", "optimal", " ", "policy", " ", 
     "response"}], ",", " ", 
    RowBox[{
    "when", " ", "neither", " ", "minister", " ", "has", " ", "made", " ", 
     "a", " ", "pledge"}], ",", " ", 
    RowBox[{"am", "=", 
     RowBox[{"af", "=", "0"}]}], ",", " ", 
    RowBox[{"as", " ", "reported", " ", "in", " ", "Row", " ", "2"}], ",", 
    " ", 
    RowBox[{"Column", " ", "3", " ", 
     RowBox[{"(", 
      RowBox[{"bf", "=", 
       RowBox[{"2", "-", 
        SqrtBox["5"]}]}], ")"}]}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.718180300790719*^9, 3.718180327750588*^9}, {
  3.718180634093412*^9, 
  3.718180641043601*^9}},ExpressionUUID->"e6a5aae2-5ef0-4786-a8b0-\
c988edf9bc8c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"xm", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"x0", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"xf", "=", 
  RowBox[{"-", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"cm", "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{"cf", "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{"am", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"af", "=", "0"}]}], "Input",
 CellChangeTimes->{{3.714591850429119*^9, 
  3.714591851450513*^9}},ExpressionUUID->"ac3ee01a-923e-40b8-b27f-\
1cd33bd04a7f"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.714591853684494*^9, 3.7145925686322403`*^9, 
  3.714734007957848*^9, 
  3.7181803133796663`*^9},ExpressionUUID->"3b242183-9d09-4db4-9fe7-\
18200d5fde48"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.714591853684494*^9, 3.7145925686322403`*^9, 
  3.714734007957848*^9, 
  3.718180313387168*^9},ExpressionUUID->"856a6e79-cd8f-41a7-8db0-\
9df4ab980153"],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{3.714591853684494*^9, 3.7145925686322403`*^9, 
  3.714734007957848*^9, 
  3.718180313392415*^9},ExpressionUUID->"3d171596-e9a6-44ca-89cf-\
96f879a05a57"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.714591853684494*^9, 3.7145925686322403`*^9, 
  3.714734007957848*^9, 
  3.718180313397635*^9},ExpressionUUID->"16061bc9-768e-4a8b-8126-\
d6fc15091b39"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.714591853684494*^9, 3.7145925686322403`*^9, 
  3.714734007957848*^9, 
  3.7181803134032927`*^9},ExpressionUUID->"aa4c9cdc-f592-4d8f-82f4-\
5e685e7d4a85"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.714591853684494*^9, 3.7145925686322403`*^9, 
  3.714734007957848*^9, 
  3.7181803134088593`*^9},ExpressionUUID->"db5fa392-ea92-49a4-8e8d-\
b2094006c86f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.714591853684494*^9, 3.7145925686322403`*^9, 
  3.714734007957848*^9, 
  3.718180313413959*^9},ExpressionUUID->"da3d4ffa-0f53-4fe0-b60b-\
0ac7156c39fe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u12", "=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"bf", "<", 
      RowBox[{"xm", "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}], "||", 
     RowBox[{"bf", ">", 
      RowBox[{"xm", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}]}], ",", " ", "z2", ",", " ", "z1"}], 
   "]"}]}]], "Input",ExpressionUUID->"4004db82-bd04-49ec-a322-2ebbe1573f29"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", 
     RowBox[{"2", "-", 
      SqrtBox["5"]}]}], "||", 
    RowBox[{"bf", ">", 
     RowBox[{"2", "+", 
      SqrtBox["5"]}]}]}], ",", "z2", ",", "z1"}], "]"}]], "Output",
 CellChangeTimes->{3.714591862527526*^9, 3.714592577230443*^9, 
  3.7147340150736217`*^9, 
  3.718180316054255*^9},ExpressionUUID->"eebf963b-b556-4110-8cb9-\
d842e4006178"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "7.2", "Estimating", " ", "the", " ", "optimal", " ", "policy", " ", 
    "response"}], ",", " ", "bf", ",", " ", 
   RowBox[{
   "when", " ", "both", " ", "ministers", " ", "have", " ", "made", " ", "a", 
    " ", "pledge"}], ",", " ", 
   RowBox[{"am", "=", 
    RowBox[{"af", "=", "2"}]}], ",", " ", 
   RowBox[{
   "as", " ", "reported", " ", "in", " ", "Row", " ", "3", "Column", " ", "3",
     " ", 
    RowBox[{"(", 
     RowBox[{"bf", "=", 
      RowBox[{"2", "-", 
       SqrtBox[
        FractionBox["5", "3"]]}]}], ")"}]}]}], ")"}]], "Input",
 CellChangeTimes->{{3.7181803543370533`*^9, 
  3.718180384393133*^9}},ExpressionUUID->"87bfb3da-d31a-438f-9997-\
9e2aff263ba9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"xm", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"x0", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"xf", "=", 
  RowBox[{"-", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"cm", "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{"cf", "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{"am", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"af", "=", "2"}]}], "Input",
 CellChangeTimes->{{3.714591972307673*^9, 3.71459197457444*^9}, {
  3.714592704944372*^9, 
  3.714592706311891*^9}},ExpressionUUID->"3c36c207-7643-46be-9e35-\
e013d03a2f24"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.714591975472274*^9, 3.714592708309301*^9, 
  3.714734028571629*^9, 
  3.718180371827958*^9},ExpressionUUID->"3314f96f-bbec-4b3c-9f15-\
dcddd7f4e28c"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.714591975472274*^9, 3.714592708309301*^9, 
  3.714734028571629*^9, 
  3.718180371833715*^9},ExpressionUUID->"833f4209-7bbb-4a20-8e10-\
5149ca385932"],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{3.714591975472274*^9, 3.714592708309301*^9, 
  3.714734028571629*^9, 
  3.71818037183797*^9},ExpressionUUID->"2596ec2b-b6e2-4fa6-8fa4-d79f273ae00d"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.714591975472274*^9, 3.714592708309301*^9, 
  3.714734028571629*^9, 
  3.718180371842198*^9},ExpressionUUID->"fb632836-7398-4831-96e0-\
16e4fda8fd66"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.714591975472274*^9, 3.714592708309301*^9, 
  3.714734028571629*^9, 
  3.7181803718465967`*^9},ExpressionUUID->"9b119e22-8a90-433a-8dae-\
5462b44783b6"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.714591975472274*^9, 3.714592708309301*^9, 
  3.714734028571629*^9, 
  3.7181803718509703`*^9},ExpressionUUID->"5cca2928-e0c8-416f-b28c-\
6a76c04e5d9e"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.714591975472274*^9, 3.714592708309301*^9, 
  3.714734028571629*^9, 
  3.718180371856474*^9},ExpressionUUID->"ac09fd9a-e615-4910-8649-\
2745f7e678ba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u12", "=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"bf", "<", 
      RowBox[{"xm", "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}], "||", 
     RowBox[{"bf", ">", 
      RowBox[{"xm", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}]}], ",", " ", "z2", ",", " ", "z1"}], 
   "]"}]}]], "Input",ExpressionUUID->"d865b61e-cd2a-4c16-960e-881f103dbcff"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", 
     RowBox[{"2", "-", 
      SqrtBox[
       FractionBox["5", "3"]]}]}], "||", 
    RowBox[{"bf", ">", 
     RowBox[{"2", "+", 
      SqrtBox[
       FractionBox["5", "3"]]}]}]}], ",", "z2", ",", "z1"}], "]"}]], "Output",\

 CellChangeTimes->{3.714591983575927*^9, 3.714592711603837*^9, 
  3.714734031055073*^9, 
  3.7181803746301613`*^9},ExpressionUUID->"a6b1ac4b-f011-476e-b3a1-\
fdb8181f1ddc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "7.3", "Estimating", " ", "the", " ", "optimal", " ", "policy", " ", 
    "response"}], ",", " ", "bf", ",", " ", 
   RowBox[{
   "when", " ", "only", " ", "Minister", " ", "has", " ", "made", " ", "a", 
    " ", "pledge"}], ",", " ", 
   RowBox[{"am", "=", "2"}], ",", " ", 
   RowBox[{"af", "=", "0"}], ",", " ", 
   RowBox[{
   "as", " ", "reported", " ", "in", " ", "Row", " ", "4", "Column", " ", "3",
     " ", 
    RowBox[{"(", 
     RowBox[{"bf", "=", 
      RowBox[{"2", "-", 
       SqrtBox[
        FractionBox["5", "3"]]}]}], " ", ")"}]}]}], ")"}]], "Input",
 CellChangeTimes->{{3.7181804135221863`*^9, 
  3.718180434573962*^9}},ExpressionUUID->"3a00fb5f-c7a0-4de7-beba-\
acb1bbafe322"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"xm", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"x0", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"xf", "=", 
  RowBox[{"-", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"cm", "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{"cf", "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{"am", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"af", "=", "0"}]}], "Input",
 CellChangeTimes->{{3.7145920154068823`*^9, 
  3.71459201574242*^9}},ExpressionUUID->"537f722a-1dfb-4a13-afc4-\
335f636b6f75"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.7145920192801323`*^9, 3.714592724960968*^9, 
  3.714734036393347*^9, 
  3.7181804374306726`*^9},ExpressionUUID->"8ddcbe3a-c5f9-4c0d-8535-\
72cadab1d0ac"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7145920192801323`*^9, 3.714592724960968*^9, 
  3.714734036393347*^9, 
  3.7181804374378347`*^9},ExpressionUUID->"f6d8a058-0c79-4f65-8b4c-\
56fe3a451e06"],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{3.7145920192801323`*^9, 3.714592724960968*^9, 
  3.714734036393347*^9, 
  3.718180437442217*^9},ExpressionUUID->"cd20a007-3101-4487-b544-\
9b3e61902bc5"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.7145920192801323`*^9, 3.714592724960968*^9, 
  3.714734036393347*^9, 
  3.7181804374463053`*^9},ExpressionUUID->"88df32cd-9cc4-4490-8f38-\
96ee689f0d30"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.7145920192801323`*^9, 3.714592724960968*^9, 
  3.714734036393347*^9, 
  3.718180437450362*^9},ExpressionUUID->"d8a80e2c-1fdc-4fe2-90bc-\
f4f90bd69542"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.7145920192801323`*^9, 3.714592724960968*^9, 
  3.714734036393347*^9, 
  3.718180437454143*^9},ExpressionUUID->"61a1b79e-8356-4b7b-ae5e-\
eebc701b27cb"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7145920192801323`*^9, 3.714592724960968*^9, 
  3.714734036393347*^9, 
  3.718180437459937*^9},ExpressionUUID->"f7cc9240-b582-49e8-9f91-\
0a71696c5a5a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u12", "=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"bf", "<", 
      RowBox[{"xm", "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}], "||", 
     RowBox[{"bf", ">", 
      RowBox[{"xm", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}]}], ",", " ", "z2", ",", " ", "z1"}], 
   "]"}]}]], "Input",ExpressionUUID->"a784d54d-21aa-4e0d-9bb1-b43a05cbe0d7"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", 
     RowBox[{"2", "-", 
      SqrtBox[
       FractionBox["5", "3"]]}]}], "||", 
    RowBox[{"bf", ">", 
     RowBox[{"2", "+", 
      SqrtBox[
       FractionBox["5", "3"]]}]}]}], ",", "z2", ",", "z1"}], "]"}]], "Output",\

 CellChangeTimes->{3.714592026230295*^9, 3.7145927277623243`*^9, 
  3.714734040025508*^9, 
  3.7181804401217833`*^9},ExpressionUUID->"ed0713dd-89ee-42f7-9f9e-\
ea4c70a3bfb0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "7.4", "Estimating", " ", "the", " ", "optimal", " ", "policy", " ", 
    "response"}], ",", " ", "bf", ",", " ", 
   RowBox[{
   "when", " ", "only", " ", "Finance", " ", "has", " ", "made", " ", "a", 
    " ", "pledge"}], ",", " ", 
   RowBox[{"am", "=", "0"}], ",", " ", 
   RowBox[{"af", "=", "2"}], ",", " ", 
   RowBox[{
   "as", " ", "reported", " ", "in", " ", "Row", " ", "5", "Column", " ", "3",
     " ", 
    RowBox[{"(", 
     RowBox[{"bf", "=", 
      RowBox[{"2", "-", 
       SqrtBox["5"]}]}], ")"}]}]}], ")"}]], "Input",
 CellChangeTimes->{{3.718180458645529*^9, 
  3.718180482068946*^9}},ExpressionUUID->"5eaed9be-a72a-4bda-9b75-\
439f41957f34"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"xm", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"x0", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"xf", "=", 
  RowBox[{"-", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"cm", "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{"cf", "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{"am", "=", "0"}], "\[IndentingNewLine]", 
 RowBox[{"af", "=", "2"}]}], "Input",
 CellChangeTimes->{{3.7145920657641*^9, 
  3.714592067310699*^9}},ExpressionUUID->"d386c202-7e36-4e29-8174-\
f3ee7a4e05fd"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.714592068937017*^9, 3.714592738934143*^9, 
  3.714734044472167*^9, 
  3.7181804701312313`*^9},ExpressionUUID->"9dce21f9-a4a1-4e37-a5b0-\
48aa7f738bff"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.714592068937017*^9, 3.714592738934143*^9, 
  3.714734044472167*^9, 
  3.718180470136738*^9},ExpressionUUID->"6aafbef8-33e8-4d33-a8da-\
1fba433d0419"],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{3.714592068937017*^9, 3.714592738934143*^9, 
  3.714734044472167*^9, 
  3.718180470141078*^9},ExpressionUUID->"dd44083a-60ed-4973-a570-\
8965aba58807"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.714592068937017*^9, 3.714592738934143*^9, 
  3.714734044472167*^9, 
  3.7181804701456347`*^9},ExpressionUUID->"2a789959-1d5c-4acd-8a97-\
49df3a882b11"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.714592068937017*^9, 3.714592738934143*^9, 
  3.714734044472167*^9, 
  3.718180470149795*^9},ExpressionUUID->"459ac26e-43e1-4a3d-b7d7-\
5aebfc1ceff2"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.714592068937017*^9, 3.714592738934143*^9, 
  3.714734044472167*^9, 
  3.718180470153822*^9},ExpressionUUID->"40e27cb9-82c4-45b7-9f76-\
fffd28357444"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.714592068937017*^9, 3.714592738934143*^9, 
  3.714734044472167*^9, 
  3.718180470157936*^9},ExpressionUUID->"c548c9e6-1d66-494a-9b48-\
a6cf81fd8625"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"u12", "=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"bf", "<", 
      RowBox[{"xm", "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}], "||", 
     RowBox[{"bf", ">", 
      RowBox[{"xm", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"cm", "+", 
          SuperscriptBox["x0", "2"], "-", 
          RowBox[{"2", " ", "x0", " ", "xm"}], "+", 
          SuperscriptBox["xm", "2"]}], 
         RowBox[{"1", "+", "am"}]]]}]}]}], ",", " ", "z2", ",", " ", "z1"}], 
   "]"}]}]], "Input",ExpressionUUID->"1d98252e-b48b-4aae-9709-aac8752d945d"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", 
     RowBox[{"2", "-", 
      SqrtBox["5"]}]}], "||", 
    RowBox[{"bf", ">", 
     RowBox[{"2", "+", 
      SqrtBox["5"]}]}]}], ",", "z2", ",", "z1"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7181804727966347`*^9},ExpressionUUID->"083c673d-2c2e-4159-90a9-\
e0330d6db5e2"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"bf", "<", 
     RowBox[{"2", "-", 
      SqrtBox["5"]}]}], "||", 
    RowBox[{"bf", ">", 
     RowBox[{"2", "+", 
      SqrtBox["5"]}]}]}], ",", "z2", ",", "z1"}], "]"}]], "Output",
 CellChangeTimes->{
  3.718180472853413*^9},ExpressionUUID->"e3d7c09b-b105-4ac3-b134-\
31e31a62aebc"]
},
WindowSize->{948, 880},
WindowMargins->{{141, Automatic}, {Automatic, 11}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 27, \
2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1386, 31, 138, "Input", "ExpressionUUID" -> \
"af95bb2e-34f5-4da6-9cd6-149f99ab41f3"],
Cell[CellGroupData[{
Cell[1969, 55, 334, 11, 32, "Input", "ExpressionUUID" -> \
"ab77659e-6fbe-4ec5-b845-3d7cc14b6eab"],
Cell[2306, 68, 263, 7, 32, "Output", "ExpressionUUID" -> \
"c7c7b365-d6b8-46c7-be51-b4d0ffaf9c81"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2606, 80, 230, 7, 32, "Input", "ExpressionUUID" -> \
"f0b5b2a5-28f6-49ff-b0e4-cf35980919d3"],
Cell[2839, 89, 246, 8, 32, "Output", "ExpressionUUID" -> \
"4496f51d-238a-4d94-9a81-3540813f12a2"]
}, Open  ]],
Cell[3100, 100, 292, 5, 32, "Input", "ExpressionUUID" -> \
"133a2eba-af61-4e70-a89c-343ffb799e14"],
Cell[CellGroupData[{
Cell[3417, 109, 171, 4, 32, "Input", "ExpressionUUID" -> \
"ce4f7fa0-dd61-41a6-bd19-0535ff8d626d"],
Cell[3591, 115, 3983, 114, 317, "Output", "ExpressionUUID" -> \
"a4298f7a-b0dc-4773-a467-6b89fec4a475"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7611, 234, 339, 10, 70, "Input", "ExpressionUUID" -> \
"cc4f10e2-8637-4178-a1cf-539a316a52f0"],
Cell[7953, 246, 353, 11, 69, "Output", "ExpressionUUID" -> \
"dd928ffe-b34b-4607-a29a-253f04fc7562"]
}, Open  ]],
Cell[8321, 260, 371, 7, 32, "Input", "ExpressionUUID" -> \
"25db15d5-6d5e-44b5-be30-63e9286a0030"],
Cell[CellGroupData[{
Cell[8717, 271, 367, 11, 70, "Input", "ExpressionUUID" -> \
"e6ce3175-ae67-4e9b-b978-22018f259ceb"],
Cell[9087, 284, 355, 11, 69, "Output", "ExpressionUUID" -> \
"00a67645-0f27-4bc5-b13a-77fea7316c21"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9479, 300, 128, 2, 32, "Input", "ExpressionUUID" -> \
"2c513dba-3660-41a0-bada-7d00acb578fb"],
Cell[9610, 304, 601, 19, 78, "Output", "ExpressionUUID" -> \
"0365a2dd-104f-400f-b101-32b3ea5872fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10248, 328, 603, 18, 80, "Input", "ExpressionUUID" -> \
"605f8311-dcc8-49a4-a85d-c298d7ab62f7"],
Cell[10854, 348, 393, 14, 76, "Output", "ExpressionUUID" -> \
"720a163c-a79c-456e-93a6-632d9c6fa914"]
}, Open  ]],
Cell[11262, 365, 238, 5, 32, "Input", "ExpressionUUID" -> \
"e8b5ae4a-1145-4e7d-9695-02f2843dc9b1"],
Cell[CellGroupData[{
Cell[11525, 374, 329, 11, 32, "Input", "ExpressionUUID" -> \
"8b187ce3-6376-46d5-98d0-f9c0887a563f"],
Cell[11857, 387, 350, 12, 32, "Output", "ExpressionUUID" -> \
"c64e9b63-4f00-45d5-b3ca-5b0113f9c3ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12244, 404, 313, 10, 32, "Input", "ExpressionUUID" -> \
"041fc2fa-64ac-4182-a73a-c84f733a2318"],
Cell[12560, 416, 331, 11, 32, "Output", "ExpressionUUID" -> \
"d04195df-3086-4d1f-b519-1d33b625ef8e"]
}, Open  ]],
Cell[12906, 430, 480, 9, 54, "Input", "ExpressionUUID" -> \
"8de7da8a-e394-49e0-b29a-221505c7013b"],
Cell[CellGroupData[{
Cell[13411, 443, 791, 23, 70, "Input", "ExpressionUUID" -> \
"d0f65d53-fa31-411e-8452-0395a282b7c1"],
Cell[14205, 468, 294, 8, 32, "Output", "ExpressionUUID" -> \
"df6643a0-16c1-48f2-a680-547397bce73f"]
}, Open  ]],
Cell[14514, 479, 1176, 19, 96, "Input", "ExpressionUUID" -> \
"9f114708-8dfa-4992-9e34-bccef43747db"],
Cell[15693, 500, 1486, 35, 75, "Input", "ExpressionUUID" -> \
"2a953f1c-2e4f-4231-91c2-2b94d4550062"],
Cell[CellGroupData[{
Cell[17204, 539, 597, 12, 159, "Input", "ExpressionUUID" -> \
"6e4c9c3e-6f75-494e-8905-cdf7c6f42d6b"],
Cell[17804, 553, 324, 5, 32, "Output", "ExpressionUUID" -> \
"f9c6f887-0324-468c-bf97-8114968e13fe"],
Cell[18131, 560, 328, 6, 32, "Output", "ExpressionUUID" -> \
"c1c40862-a321-469e-9693-d8f05d4e1393"],
Cell[18462, 568, 345, 7, 32, "Output", "ExpressionUUID" -> \
"27efeac5-30b4-4af5-8e6c-e75bb600893e"],
Cell[18810, 577, 330, 6, 32, "Output", "ExpressionUUID" -> \
"b16c1f4b-71c9-4ef2-b885-e929d8b8a9f9"],
Cell[19143, 585, 328, 6, 32, "Output", "ExpressionUUID" -> \
"0723365f-130b-4b10-9b8a-ba2acfb83168"],
Cell[19474, 593, 328, 6, 32, "Output", "ExpressionUUID" -> \
"523e447d-b043-484b-93a4-1b130dd4cad6"],
Cell[19805, 601, 330, 6, 32, "Output", "ExpressionUUID" -> \
"72fbeed8-4003-4624-aa5d-d23e18e18d3b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20172, 612, 791, 23, 70, "Input", "ExpressionUUID" -> \
"075f9267-f862-4809-83d6-8d1815c4e4f1"],
Cell[20966, 637, 339, 9, 32, "Output", "ExpressionUUID" -> \
"c7797afd-aa4f-410d-8192-62278b843efd"]
}, Open  ]],
Cell[21320, 649, 785, 22, 78, "Input", "ExpressionUUID" -> \
"3670e089-40ce-4061-b80a-477f546c524e"],
Cell[CellGroupData[{
Cell[22130, 675, 661, 14, 180, "Input", "ExpressionUUID" -> \
"4b2e70fb-de8a-4e13-bb41-7cec147c0103"],
Cell[22794, 691, 225, 4, 32, "Output", "ExpressionUUID" -> \
"7694bd70-23c1-424f-a59f-9c9d93b9eefd"],
Cell[23022, 697, 223, 4, 32, "Output", "ExpressionUUID" -> \
"e447ad83-1d66-48f6-a120-92e92aec3aa6"],
Cell[23248, 703, 240, 5, 32, "Output", "ExpressionUUID" -> \
"70a89e85-5e8b-43e3-9730-219bef237b4d"],
Cell[23491, 710, 225, 4, 32, "Output", "ExpressionUUID" -> \
"2bcaa01d-68b8-43dc-8859-d0ee31a715ab"],
Cell[23719, 716, 223, 4, 32, "Output", "ExpressionUUID" -> \
"5be1775b-1ab5-4f8d-a311-31133ef22aa2"],
Cell[23945, 722, 223, 4, 32, "Output", "ExpressionUUID" -> \
"181150b3-b1e4-4ac7-8c5f-40c33841cf3f"],
Cell[24171, 728, 223, 4, 32, "Output", "ExpressionUUID" -> \
"110c70f4-bee4-4c50-ad85-acbee1dd08d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24431, 737, 791, 23, 70, "Input", "ExpressionUUID" -> \
"3a3e4cbe-d9f8-4a02-8e0f-64c52e02dc9c"],
Cell[25225, 762, 507, 16, 52, "Output", "ExpressionUUID" -> \
"175152dc-99cf-42fb-b274-39b52477d78f"]
}, Open  ]],
Cell[25747, 781, 745, 21, 78, "Input", "ExpressionUUID" -> \
"654b8a86-2eab-4d4f-ab9e-36c2f19d2ba1"],
Cell[CellGroupData[{
Cell[26517, 806, 502, 11, 159, "Input", "ExpressionUUID" -> \
"123de86d-ca94-4e5a-814e-e170f701ce0f"],
Cell[27022, 819, 176, 3, 32, "Output", "ExpressionUUID" -> \
"30c12290-b31d-4630-ad5a-1f34ff085878"],
Cell[27201, 824, 176, 3, 32, "Output", "ExpressionUUID" -> \
"2a7ac956-6b21-4c9f-b179-6d50a0c3f61a"],
Cell[27380, 829, 195, 4, 32, "Output", "ExpressionUUID" -> \
"6d13e6a4-9cbd-4493-8426-7b4091ece232"],
Cell[27578, 835, 176, 3, 32, "Output", "ExpressionUUID" -> \
"2fc2cea6-fc93-4a22-81dc-14a57b9fb78e"],
Cell[27757, 840, 178, 3, 32, "Output", "ExpressionUUID" -> \
"d1a649ab-ac51-44f8-9c10-60922dc9a959"],
Cell[27938, 845, 176, 3, 32, "Output", "ExpressionUUID" -> \
"4b7d6be7-06e8-4198-b90e-dd327206364f"],
Cell[28117, 850, 176, 3, 32, "Output", "ExpressionUUID" -> \
"47c6fa6a-aef4-49ac-b97c-e409b22edd18"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28330, 858, 791, 23, 70, "Input", "ExpressionUUID" -> \
"430d93b8-a13f-4036-a6d2-f4d8e41beb00"],
Cell[29124, 883, 452, 14, 52, "Output", "ExpressionUUID" -> \
"dd3e3f28-3640-43e6-bd30-16f683dbd39e"]
}, Open  ]],
Cell[29591, 900, 669, 18, 54, "Input", "ExpressionUUID" -> \
"ff02b507-9490-46cb-b7d3-d90791758db2"],
Cell[CellGroupData[{
Cell[30285, 922, 502, 11, 159, "Input", "ExpressionUUID" -> \
"ff798f11-2cc4-47b3-8c7f-c08f4cbc2af8"],
Cell[30790, 935, 203, 4, 32, "Output", "ExpressionUUID" -> \
"39b77f00-dfd5-4ef3-9e88-2935565610b9"],
Cell[30996, 941, 203, 4, 32, "Output", "ExpressionUUID" -> \
"35370e47-530d-4cdd-afae-f4b20cf8a9db"],
Cell[31202, 947, 220, 5, 32, "Output", "ExpressionUUID" -> \
"818e47f3-3f0f-406b-89dd-77480382c4b6"],
Cell[31425, 954, 203, 4, 32, "Output", "ExpressionUUID" -> \
"e0a6627e-7c6b-4111-8395-56a40505b0cf"],
Cell[31631, 960, 203, 4, 32, "Output", "ExpressionUUID" -> \
"e1f80184-a681-4da2-ae07-1324b4fae855"],
Cell[31837, 966, 202, 4, 32, "Output", "ExpressionUUID" -> \
"847ba7fe-40fa-4876-b524-3264791714ef"],
Cell[32042, 972, 203, 4, 32, "Output", "ExpressionUUID" -> \
"f8a4a69a-eab1-4a8d-98a1-2470361ce033"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32282, 981, 920, 27, 94, "Input", "ExpressionUUID" -> \
"98d81cdd-80eb-49d6-b2f6-dadbcc5ea4be"],
Cell[33205, 1010, 294, 8, 32, "Output", "ExpressionUUID" -> \
"751c8ebc-8dca-4cfc-9903-a4443afcd2e3"]
}, Open  ]],
Cell[33514, 1021, 269, 8, 32, "Input", "ExpressionUUID" -> \
"269bc247-f3f9-4137-9be0-0a532991f086"],
Cell[33786, 1031, 616, 16, 32, "Input", "ExpressionUUID" -> \
"2d7914ba-b622-47dc-afbe-9019fd8fae20"],
Cell[34405, 1049, 789, 22, 67, "Input", "ExpressionUUID" -> \
"e6a5aae2-5ef0-4786-a8b0-c988edf9bc8c"],
Cell[CellGroupData[{
Cell[35219, 1075, 502, 11, 159, "Input", "ExpressionUUID" -> \
"ac3ee01a-923e-40b8-b27f-1cd33bd04a7f"],
Cell[35724, 1088, 203, 4, 32, "Output", "ExpressionUUID" -> \
"3b242183-9d09-4db4-9fe7-18200d5fde48"],
Cell[35930, 1094, 201, 4, 32, "Output", "ExpressionUUID" -> \
"856a6e79-cd8f-41a7-8db0-9df4ab980153"],
Cell[36134, 1100, 218, 5, 32, "Output", "ExpressionUUID" -> \
"3d171596-e9a6-44ca-89cf-96f879a05a57"],
Cell[36355, 1107, 201, 4, 32, "Output", "ExpressionUUID" -> \
"16061bc9-768e-4a8b-8126-d6fc15091b39"],
Cell[36559, 1113, 203, 4, 32, "Output", "ExpressionUUID" -> \
"aa4c9cdc-f592-4d8f-82f4-5e685e7d4a85"],
Cell[36765, 1119, 203, 4, 32, "Output", "ExpressionUUID" -> \
"db5fa392-ea92-49a4-8e8d-b2094006c86f"],
Cell[36971, 1125, 201, 4, 32, "Output", "ExpressionUUID" -> \
"da3d4ffa-0f53-4fe0-b60b-0ac7156c39fe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37209, 1134, 791, 23, 70, "Input", "ExpressionUUID" -> \
"4004db82-bd04-49ec-a322-2ebbe1573f29"],
Cell[38003, 1159, 425, 13, 36, "Output", "ExpressionUUID" -> \
"eebf963b-b556-4110-8cb9-d842e4006178"]
}, Open  ]],
Cell[38443, 1175, 731, 21, 99, "Input", "ExpressionUUID" -> \
"87bfb3da-d31a-438f-9997-9e2aff263ba9"],
Cell[CellGroupData[{
Cell[39199, 1200, 550, 12, 159, "Input", "ExpressionUUID" -> \
"3c36c207-7643-46be-9e35-e013d03a2f24"],
Cell[39752, 1214, 199, 4, 32, "Output", "ExpressionUUID" -> \
"3314f96f-bbec-4b3c-9f15-dcddd7f4e28c"],
Cell[39954, 1220, 199, 4, 32, "Output", "ExpressionUUID" -> \
"833f4209-7bbb-4a20-8e10-5149ca385932"],
Cell[40156, 1226, 213, 4, 32, "Output", "ExpressionUUID" -> \
"2596ec2b-b6e2-4fa6-8fa4-d79f273ae00d"],
Cell[40372, 1232, 199, 4, 32, "Output", "ExpressionUUID" -> \
"fb632836-7398-4831-96e0-16e4fda8fd66"],
Cell[40574, 1238, 201, 4, 32, "Output", "ExpressionUUID" -> \
"9b119e22-8a90-433a-8dae-5462b44783b6"],
Cell[40778, 1244, 201, 4, 32, "Output", "ExpressionUUID" -> \
"5cca2928-e0c8-416f-b28c-6a76c04e5d9e"],
Cell[40982, 1250, 199, 4, 32, "Output", "ExpressionUUID" -> \
"ac09fd9a-e615-4910-8649-2745f7e678ba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41218, 1259, 791, 23, 70, "Input", "ExpressionUUID" -> \
"d865b61e-cd2a-4c16-960e-881f103dbcff"],
Cell[42012, 1284, 479, 16, 56, "Output", "ExpressionUUID" -> \
"a6b1ac4b-f011-476e-b3a1-fdb8181f1ddc"]
}, Open  ]],
Cell[42506, 1303, 748, 21, 99, "Input", "ExpressionUUID" -> \
"3a00fb5f-c7a0-4de7-beba-acb1bbafe322"],
Cell[CellGroupData[{
Cell[43279, 1328, 503, 11, 159, "Input", "ExpressionUUID" -> \
"537f722a-1dfb-4a13-afc4-335f636b6f75"],
Cell[43785, 1341, 203, 4, 32, "Output", "ExpressionUUID" -> \
"8ddcbe3a-c5f9-4c0d-8535-72cadab1d0ac"],
Cell[43991, 1347, 203, 4, 32, "Output", "ExpressionUUID" -> \
"f6d8a058-0c79-4f65-8b4c-56fe3a451e06"],
Cell[44197, 1353, 218, 5, 32, "Output", "ExpressionUUID" -> \
"cd20a007-3101-4487-b544-9b3e61902bc5"],
Cell[44418, 1360, 203, 4, 32, "Output", "ExpressionUUID" -> \
"88df32cd-9cc4-4490-8f38-96ee689f0d30"],
Cell[44624, 1366, 201, 4, 32, "Output", "ExpressionUUID" -> \
"d8a80e2c-1fdc-4fe2-90bc-f4f90bd69542"],
Cell[44828, 1372, 201, 4, 32, "Output", "ExpressionUUID" -> \
"61a1b79e-8356-4b7b-ae5e-eebc701b27cb"],
Cell[45032, 1378, 201, 4, 32, "Output", "ExpressionUUID" -> \
"f7cc9240-b582-49e8-9f91-0a71696c5a5a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45270, 1387, 791, 23, 70, "Input", "ExpressionUUID" -> \
"a784d54d-21aa-4e0d-9bb1-b43a05cbe0d7"],
Cell[46064, 1412, 481, 16, 56, "Output", "ExpressionUUID" -> \
"ed0713dd-89ee-42f7-9f9e-ea4c70a3bfb0"]
}, Open  ]],
Cell[46560, 1431, 713, 20, 60, "Input", "ExpressionUUID" -> \
"5eaed9be-a72a-4bda-9b75-439f41957f34"],
Cell[CellGroupData[{
Cell[47298, 1455, 500, 11, 159, "Input", "ExpressionUUID" -> \
"d386c202-7e36-4e29-8174-f3ee7a4e05fd"],
Cell[47801, 1468, 201, 4, 32, "Output", "ExpressionUUID" -> \
"9dce21f9-a4a1-4e37-a5b0-48aa7f738bff"],
Cell[48005, 1474, 199, 4, 32, "Output", "ExpressionUUID" -> \
"6aafbef8-33e8-4d33-a8da-1fba433d0419"],
Cell[48207, 1480, 216, 5, 32, "Output", "ExpressionUUID" -> \
"dd44083a-60ed-4973-a570-8965aba58807"],
Cell[48426, 1487, 201, 4, 32, "Output", "ExpressionUUID" -> \
"2a789959-1d5c-4acd-8a97-49df3a882b11"],
Cell[48630, 1493, 199, 4, 32, "Output", "ExpressionUUID" -> \
"459ac26e-43e1-4a3d-b7d7-5aebfc1ceff2"],
Cell[48832, 1499, 199, 4, 32, "Output", "ExpressionUUID" -> \
"40e27cb9-82c4-45b7-9f76-fffd28357444"],
Cell[49034, 1505, 199, 4, 32, "Output", "ExpressionUUID" -> \
"c548c9e6-1d66-494a-9b48-a6cf81fd8625"]
}, Open  ]],
Cell[49248, 1512, 791, 23, 70, "Input", "ExpressionUUID" -> \
"1d98252e-b48b-4aae-9709-aac8752d945d"],
Cell[50042, 1537, 355, 12, 40, "Input", "ExpressionUUID" -> \
"083c673d-2c2e-4159-90a9-e0330d6db5e2"],
Cell[50400, 1551, 354, 12, 36, "Output", "ExpressionUUID" -> \
"e3d7c09b-b105-4ac3-b134-31e31a62aebc"]
}
]
*)

